home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / intro.dir / 00024_Users List.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  720 b   |  29 lines
  1. global gINLastLine, gINCurrLine
  2.  
  3. on mouseDown
  4.   if the doubleClick and (the mouseLine <> -1) then
  5.     put "Duck"
  6.     dontPassEvent()
  7.     endPopup()
  8.     exit
  9.   end if
  10.   set gINLastLine to -1
  11.   set mLine to the mouseLine
  12.   if mLine <> -1 then
  13.     set executeOnce to 0
  14.     repeat while the stillDown or (executeOnce = 0)
  15.       set mLine to the mouseLine
  16.       if (mLine <> gINLastLine) and (mLine <> -1) then
  17.         set the foreColor of line gINLastLine of field "Users List" to 251
  18.         set the foreColor of line mLine of field "Users List" to 250
  19.         set gINLastLine to mLine
  20.         set executeOnce to 1
  21.       end if
  22.     end repeat
  23.     set gINCurrLine to gINLastLine
  24.   else
  25.     return 
  26.   end if
  27.   endPopup()
  28. end
  29.